#!/bin/env perl

# float value
$value = 9.01e+21 + 1e-3 - 9.01e+21;
print("first value is $value,\n");
$value = 9.01e+21 - 9.01e+21 + 1e-3 ;
print("second value is $value,\n");

# strings
$number = 100;
$text1 = "\UThis text \E\lContains the number $number";

$number = 200;
$text2 = "This text contains the number $number";

print ("text1 is: $text1\n");
print ("text2 is: $text2\n");

$result = "\xff"; # EOF
$result = "\x0"; # null
print ($result);
